object WebModule1: TWebModule1 OldCreateOrder = False Actions = < item Default = True Name = 'WebActionItem1' OnAction = WebModule1WebActionItem1Action end> Left = 268 Top = 112 Height = 390 Width = 504 object CustomerXMLBroker: TXMLBroker Params = <> ProviderName = 'CustomerProvider' WebDispatch.PathInfo = 'CustomerXMLBroker' Left = 48 Top = 184 end object MidasPageProducer: TMidasPageProducer HTMLDoc.Strings = ( '' '' '' '' '' '

Hello, world!

' '<#INCLUDES><#STYLES><#WARNINGS><#FORMS><#SCRIPT>' '

' '' '' '' '') IncludePathURL = 'http://localhost/cgi-bin/' Left = 112 Top = 240 object CustomerOrderDataForm: TDataForm object CustomerNavigator: TDataNavigator XMLComponent = CustomerFieldGroup end object CustomerFieldGroup: TFieldGroup XMLBroker = CustomerXMLBroker object CustNo: TFieldText DisplayWidth = 10 Caption = 'CustNo' FieldName = 'CustNo' end object Company: TFieldText DisplayWidth = 30 Caption = 'Company' FieldName = 'Company' end object Addr1: TFieldText DisplayWidth = 30 Caption = 'Addr1' FieldName = 'Addr1' end object Addr2: TFieldText DisplayWidth = 30 Caption = 'Addr2' FieldName = 'Addr2' end object City: TFieldText DisplayWidth = 15 Caption = 'City' FieldName = 'City' end object State: TFieldText DisplayWidth = 20 Caption = 'State' FieldName = 'State' end object Zip: TFieldText DisplayWidth = 10 Caption = 'Zip' FieldName = 'Zip' end object Country: TFieldText DisplayWidth = 20 Caption = 'Country' FieldName = 'Country' end object Phone: TFieldText DisplayWidth = 15 Caption = 'Phone' FieldName = 'Phone' end object FAX: TFieldText DisplayWidth = 15 Caption = 'FAX' FieldName = 'FAX' end object TaxRate: TFieldText DisplayWidth = 10 Caption = 'TaxRate' FieldName = 'TaxRate' end object Contact: TFieldText DisplayWidth = 20 Caption = 'Contact' FieldName = 'Contact' end object LastInvoiceDate: TFieldText DisplayWidth = 10 Caption = 'LastInvoiceDate' FieldName = 'LastInvoiceDate' end object FieldStatus1: TFieldStatus Caption = '*' end end object OrdersNavigator: TDataNavigator XMLComponent = OrdersGrid end object OrdersGrid: TDataGrid XMLBroker = OrdersXMLBroker object OrderNo: TTextColumn DisplayWidth = 10 Caption = 'OrderNo' FieldName = 'OrderNo' end object CustNo2: TTextColumn DisplayWidth = 10 Caption = 'CustNo' FieldName = 'CustNo' end object SaleDate: TTextColumn DisplayWidth = 10 Caption = 'SaleDate' FieldName = 'SaleDate' end object ShipDate: TTextColumn DisplayWidth = 10 Caption = 'ShipDate' FieldName = 'ShipDate' end object EmpNo: TTextColumn DisplayWidth = 10 Caption = 'EmpNo' FieldName = 'EmpNo' end object ShipToContact: TTextColumn DisplayWidth = 20 Caption = 'ShipToContact' FieldName = 'ShipToContact' end object ShipToAddr1: TTextColumn DisplayWidth = 30 Caption = 'ShipToAddr1' FieldName = 'ShipToAddr1' end object ShipToAddr2: TTextColumn DisplayWidth = 30 Caption = 'ShipToAddr2' FieldName = 'ShipToAddr2' end object ShipToCity: TTextColumn DisplayWidth = 15 Caption = 'ShipToCity' FieldName = 'ShipToCity' end object ShipToState: TTextColumn DisplayWidth = 20 Caption = 'ShipToState' FieldName = 'ShipToState' end object ShipToZip: TTextColumn DisplayWidth = 10 Caption = 'ShipToZip' FieldName = 'ShipToZip' end object ShipToCountry: TTextColumn DisplayWidth = 20 Caption = 'ShipToCountry' FieldName = 'ShipToCountry' end object ShipToPhone: TTextColumn DisplayWidth = 15 Caption = 'ShipToPhone' FieldName = 'ShipToPhone' end object ShipVIA: TTextColumn DisplayWidth = 7 Caption = 'ShipVIA' FieldName = 'ShipVIA' end object PO: TTextColumn DisplayWidth = 15 Caption = 'PO' FieldName = 'PO' end object Terms: TTextColumn DisplayWidth = 6 Caption = 'Terms' FieldName = 'Terms' end object PaymentMethod: TTextColumn DisplayWidth = 7 Caption = 'PaymentMethod' FieldName = 'PaymentMethod' end object ItemsTotal: TTextColumn DisplayWidth = 10 Caption = 'ItemsTotal' FieldName = 'ItemsTotal' end object TaxRate2: TTextColumn DisplayWidth = 10 Caption = 'TaxRate' FieldName = 'TaxRate' end object Freight: TTextColumn DisplayWidth = 10 Caption = 'Freight' FieldName = 'Freight' end object AmountPaid: TTextColumn DisplayWidth = 10 Caption = 'AmountPaid' FieldName = 'AmountPaid' end object StatusColumn1: TStatusColumn Caption = '*' end end end end object CustomerProvider: TDataSetProvider DataSet = CustomerADOTable Constraints = True Left = 48 Top = 128 end object ADOConnect: TADOConnection Connected = True ConnectionString = 'Provider=Microsoft.Jet.OLEDB.4.0;Password="";User ID=Admin;Data ' + 'Source=C:\Program Files\Common Files\Borland Shared\Data\DBDEMOS' + '.mdb;Mode=Share Deny None;Extended Properties="";Locale Identifi' + 'er=1033;Jet OLEDB:System database="";Jet OLEDB:Registry Path="";' + 'Jet OLEDB:Database Password="";Jet OLEDB:Engine Type=4;Jet OLEDB' + ':Database Locking Mode=0;Jet OLEDB:Global Partial Bulk Ops=2;Jet' + ' OLEDB:Global Bulk Transactions=1;Jet OLEDB:New Database Passwor' + 'd="";Jet OLEDB:Create System Database=False;Jet OLEDB:Encrypt Da' + 'tabase=False;Jet OLEDB:Don'#39't Copy Locale on Compact=False;Jet OL' + 'EDB:Compact Without Replica Repair=False;Jet OLEDB:SFP=False' LoginPrompt = False Mode = cmShareDenyNone Provider = 'Microsoft.Jet.OLEDB.4.0' Left = 112 Top = 8 end object CustomerADOTable: TADOTable Active = True Connection = ADOConnect CursorType = ctStatic TableName = 'customer' Left = 48 Top = 40 object CustomerADOTableCustNo: TFloatField FieldName = 'CustNo' end object CustomerADOTableCompany: TWideStringField FieldName = 'Company' Size = 30 end object CustomerADOTableAddr1: TWideStringField FieldName = 'Addr1' Size = 30 end object CustomerADOTableAddr2: TWideStringField FieldName = 'Addr2' Size = 30 end object CustomerADOTableCity: TWideStringField FieldName = 'City' Size = 15 end object CustomerADOTableState: TWideStringField FieldName = 'State' end object CustomerADOTableZip: TWideStringField FieldName = 'Zip' Size = 10 end object CustomerADOTableCountry: TWideStringField FieldName = 'Country' end object CustomerADOTablePhone: TWideStringField FieldName = 'Phone' Size = 15 end object CustomerADOTableFAX: TWideStringField FieldName = 'FAX' Size = 15 end object CustomerADOTableTaxRate: TFloatField FieldName = 'TaxRate' end object CustomerADOTableContact: TWideStringField FieldName = 'Contact' end object CustomerADOTableLastInvoiceDate: TDateField FieldName = 'LastInvoiceDate' end end object OrdersADOTable: TADOTable Active = True Connection = ADOConnect CursorType = ctStatic IndexFieldNames = 'CustNo' MasterFields = 'CustNo' MasterSource = DataSource1 TableName = 'orders' Left = 168 Top = 40 object OrdersADOTableOrderNo: TFloatField FieldName = 'OrderNo' end object OrdersADOTableCustNo: TFloatField FieldName = 'CustNo' end object OrdersADOTableSaleDate: TDateField FieldName = 'SaleDate' end object OrdersADOTableShipDate: TDateField FieldName = 'ShipDate' end object OrdersADOTableEmpNo: TIntegerField FieldName = 'EmpNo' end object OrdersADOTableShipToContact: TWideStringField FieldName = 'ShipToContact' end object OrdersADOTableShipToAddr1: TWideStringField FieldName = 'ShipToAddr1' Size = 30 end object OrdersADOTableShipToAddr2: TWideStringField FieldName = 'ShipToAddr2' Size = 30 end object OrdersADOTableShipToCity: TWideStringField FieldName = 'ShipToCity' Size = 15 end object OrdersADOTableShipToState: TWideStringField FieldName = 'ShipToState' end object OrdersADOTableShipToZip: TWideStringField FieldName = 'ShipToZip' Size = 10 end object OrdersADOTableShipToCountry: TWideStringField FieldName = 'ShipToCountry' end object OrdersADOTableShipToPhone: TWideStringField FieldName = 'ShipToPhone' Size = 15 end object OrdersADOTableShipVIA: TWideStringField FieldName = 'ShipVIA' Size = 7 end object OrdersADOTablePO: TWideStringField FieldName = 'PO' Size = 15 end object OrdersADOTableTerms: TWideStringField FieldName = 'Terms' Size = 6 end object OrdersADOTablePaymentMethod: TWideStringField FieldName = 'PaymentMethod' Size = 7 end object OrdersADOTableItemsTotal: TFloatField FieldName = 'ItemsTotal' end object OrdersADOTableTaxRate: TFloatField FieldName = 'TaxRate' end object OrdersADOTableFreight: TFloatField FieldName = 'Freight' end object OrdersADOTableAmountPaid: TFloatField FieldName = 'AmountPaid' end end object DataSource1: TDataSource DataSet = CustomerADOTable Left = 112 Top = 88 end object OrdersProvider: TDataSetProvider DataSet = OrdersADOTable Constraints = True Left = 168 Top = 120 end object OrdersXMLBroker: TXMLBroker Params = <> ProviderName = 'OrdersProvider' WebDispatch.PathInfo = 'OrdersXMLBroker' Left = 168 Top = 184 end end